--[[
    编码: JX-17-14
    名称: 计划盘点容器-创建盘点出库作业
    作者：HAN  
    日期：2025-1-29

    级别：项目
    
    函数： CreateStocktakingOutOperation

    功能:
         -- 如果计划盘点容器的盘点方法是自动搬运，需要创建一个搬运作业

    更改记录:

--]]
wms_op = require( "wms_operation" )
wms_wh = require( "wms_wh" )
jx_base= require( "jx_base" )

function CreateStocktakingOutOperation ( strLuaDEID ) 
    local nRet, strRetInfo
    local count_cntr = {}
    nRet, count_cntr = m3.GetCurEditDataObj( strLuaDEID )
    if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【CP_Count_Container】对象属性失败!"..count_cntr ) end

    -- 如果盘点方式不是系统搬运直接返回
    if ( count_cntr.method ~= 2 ) then 
        lua.Warning( strLuaDEID, debug.getinfo(1), "计划盘点的容器号'"..count_cntr.cntr_code.."'的盘点方法="..count_cntr.method.."不能自动生成容器盘点出库!" )
        return 
    end
    if ( count_cntr.station == nil or count_cntr.station == '') then
        lua.Error( strLuaDEID, debug.getinfo(1), "计划盘点的出库容器中缺少盘点站台信息!" )
    end

    -- 通过盘点站台获取出库终点货位
    local station_attr
    nRet, station_attr = jx_base.Get_Station_ExtData( strLuaDEID, count_cntr.station  )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), station_attr ) end
    local to_loc_code = lua.Get_StrAttrValue( station_attr.loc_code )  
    if ( to_loc_code == '' ) then   
        lua.Error( strLuaDEID, debug.getinfo(1), "机台-"..count_cntr.station.." 常量中没有定义站台货位信息!" ) 
    end
    local to_loc 
    nRet, to_loc = wms_wh.GetLocInfo( to_loc_code )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), '获取货位信息失败! '..to_loc ) end  

    local operation = m3.AllocObject(strLuaDEID,"Operation")
    operation.start_wh_code = count_cntr.wh_code
    operation.start_area_code = count_cntr.area_code
    operation.start_loc_code = count_cntr.loc_code

    operation.end_wh_code = to_loc.wh_code
    operation.end_area_code = to_loc.area_code
    operation.end_loc_code = to_loc_code

    operation.op_type = wms_base.Get_nConst(strLuaDEID, "作业类型-出库")
    operation.op_def_name = "盘点出库"
    operation.cntr_code = count_cntr.cntr_code

    nRet, operation = m3.CreateDataObj( strLuaDEID, operation )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), '创建【作业】失败!'..operation ) end  

    -- 更新【计划盘点容器】对象属性
    local strUpdateSql = "S_OUT_OP_NO = '"..operation.code.."'"
    strCondition = "S_ID = '"..count_cntr.id.."'"
    nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "CP_Count_Container", strCondition, strUpdateSql )
    if ( nRet ~= 0 ) then  lua.Error( strLuaDEID, debug.getinfo(1), "更新【CP_Count_Container】信息失败!"..strRetInfo ) end  

end